home *** CD-ROM | disk | FTP | other *** search
/ AMIGA-CD 2 / Amiga-CD - Volume 2.iso / ungepackte_daten / 1993 / 5 / 04b / funktionsplotter / fplotter.ampk / EGS / TXT / GBRadio.def < prev    next >
Encoding:
Text File  |  1995-06-01  |  1.7 KB  |  50 lines
  1. |##########|
  2. |#MAGIC   #|BOPDMOCD
  3. |#PROJECT #|""
  4. |#PATHS   #|"StdProject"
  5. |#FLAGS   #|xx---x--x---xxx-----------------
  6. |#USERSW  #|--------------------------------
  7. |#USERMASK#|--------------------------------
  8. |#SWITCHES#|x----x----------
  9. |##########|
  10. DEFINITION MODULE GBRadio;
  11.  
  12. FROM System IMPORT LONGSET,Regs;
  13. IMPORT EGSIntui  AS I;
  14. IMPORT EGSGadBox  AS GB;
  15. FROM Exec IMPORT LibraryPtr;
  16.  
  17. CONST
  18.   SuperRadType   = CAST(LONGINT,"SRAD".data);
  19.   NoneSelected   = -1;
  20.  
  21. TYPE
  22.   RadioGadPtr= POINTER TO RadioGadget;
  23.   RadioGadget= RECORD OF I.MasterGadget
  24.                  selected : INTEGER;
  25.                  selGad   : I.BoolGadPtr;
  26.                END;
  27.  
  28. VAR GBRadioBase : LibraryPtr;
  29.  
  30. LIBRARY GBRadioBase BY - 30 PROCEDURE CreateRadioGadget(con    IN A0 : GB.GadContext;
  31.                                                         names  IN A1 : GB.StrArrayPtr;
  32.                                                         height IN D0 : INTEGER;
  33.                                                         id     IN D1 : LONGINT):GB.GadBoxPtr;
  34.  
  35. LIBRARY GBRadioBase BY -36 PROCEDURE ModifyRadioGadget(win IN A0 : I.WindowPtr;
  36.                                                        gad IN A1 : RadioGadPtr;
  37.                                                        sel IN D0 : INTEGER);
  38.  
  39. LIBRARY GBRadioBase BY -42 PROCEDURE OnRadioElems(win   IN A0 : I.WindowPtr;
  40.                                                   gad   IN A1 : RadioGadPtr;
  41.                                                   elems IN D0 : LONGSET);
  42.  
  43. LIBRARY GBRadioBase BY -48 PROCEDURE OffRadioElems(win   IN A0 : I.WindowPtr;
  44.                                                    gad   IN A1 : RadioGadPtr;
  45.                                                    elems IN D0 : LONGSET);
  46.  
  47. END GBRadio.
  48.  
  49.  
  50.